home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / slperl.zoo / atarist / test / sig < prev    next >
Encoding:
Text File  |  1992-07-02  |  191 b   |  13 lines
  1. sub handler {
  2.     local($sig) = @_;
  3.     print "Caught SIG$sig\n";
  4.     exit(0);
  5. }
  6.  
  7. $SIG{'INT'} = 'handler';
  8.  
  9. print "Hit CRTL-C to see if it is trapped\n";
  10. while($_ = <ARGV>) {
  11.     print $_;
  12. }
  13.